home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / xlisp / amiga / xlisp2.arc / fib.lsp < prev    next >
Lisp/Scheme  |  1988-11-17  |  93b  |  7 lines
  1. (defun fib (x)
  2.        (if (< x 2)
  3.            x
  4.            (+ (fib (1- x)) (fib (- x 2)))))
  5.  
  6.  
  7.